home *** CD-ROM | disk | FTP | other *** search
/ Mobiclic 71 / MOBICLIC 71.ISO / mac / DATA / COMMUN / temp0001 / 00218_Script_GESTION_POPMENU_ZAPETTE < prev    next >
Text File  |  2004-12-05  |  2KB  |  66 lines
  1. global gL_mobiDATA,gpiste_logoRoll, gmem_logoRoll
  2. property p_cettePiste, p_Nodepiste,p_Acteur, pNblines
  3. ----------------------------------
  4. on beginsprite me
  5.   p_Nodepiste = me.spriteNum
  6.   p_cettePiste = sprite(p_Nodepiste)
  7.   p_Acteur = p_cettePiste.member
  8.   p_cettePiste.member.fontSize = 9
  9.   pNblines = p_cettePiste.member.text.lines.count
  10. end
  11. ----------------------------------- 
  12. on mouseWithin
  13.   if the pauseState = 1 then exit
  14.   cursor 280
  15.   p_Acteur.line[the mouseLine].hilite()
  16.   u = the mouseLine
  17.   if voidP(u) then exit
  18.   if u > 0 and u <= pNblines then
  19.     temp = gL_mobiDATA[5][u]
  20.     if not(voidP(temp)) then
  21.       sprite(gpiste_logoRoll).member = "logo"&temp[1].char[1..4]
  22.       case(count(temp)) of
  23.         2:
  24.           member("ZTITRE_ROLL").text = temp[2]
  25.           member("ZTITRE_ROLL").font = "Arial*"
  26.         3:
  27.           member("ZTITRE_ROLL").text = temp[3]
  28.           member("ZTITRE_ROLL").font = "Arial*"
  29.       end case
  30.    end if
  31.     updateStage
  32.   end if
  33. end
  34. ---------------------------------
  35. on mouseLeave
  36.   cursor -1
  37.   if the pauseState = 1 then exit
  38.   p_Acteur.line[999].hilite()
  39.   sprite(gpiste_logoRoll).member  = gmem_logoRoll
  40.   member("ZTITRE_ROLL").text = EMPTY
  41. end
  42. ----------------------------------- 
  43. on mouseUp
  44.   if the pauseState = 1 then exit
  45.   cursor -1
  46.   temp = gL_mobiDATA[5][the mouseLine]
  47.   case(count(temp)) of
  48.     2:
  49.       go "ATTENTE"
  50.       tell the stage
  51.         goOtherRub(temp[1],0)
  52.       end tell
  53.       
  54.     3:
  55.       go "ATTENTE"
  56.       tell the stage
  57.         if temp[1] = "CPLUSCLAIR" then
  58.           goOtherRub(temp[1],0,"LABEL_"&gimme2digits(temp[2]))
  59.         else
  60.           goOtherRub(temp[1],temp[2]-1)
  61.         end if
  62.       end tell
  63.   end case
  64. end
  65. ----------------------------------- 
  66.